﻿Public Class ClsStipendio

  Private importo As Double = 0

  Public Sub scriviImporto(
         ByVal pImporto As Double)
    If importo < 0 Then
      importo = pImporto
    Else
      Console.WriteLine("Importo " &
          "negativo non valido")
      Console.ReadLine()
    End If
  End Sub

  Public Function leggiImporto() As Double
    Return importo
  End Function
End Class

